home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
n_b-v200.zip
/
NBV2
/
DMO
/
B_BEVEL.DMO
< prev
next >
Wrap
Text File
|
1996-03-11
|
3KB
|
53 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME B_BEVEL .DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
These boxes are good, general purpose buttons. Notice how the border of
the buttons change as you make the buttons "deeper". This is done to
keep the definition of the button.
1 to 3 pixel borders are simply that. The 4 pixel border creates a
simple 1pixel lip and 5 and above get really fancy by creating an
embossed inner border and puts highlights on the corners. They all put
the "black" border around the button to add definition.
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
'┌───────────────────────
$INCLUDE "DAS-NB01.INC" '│
$INCLUDE "DAS-NBV1.INC" '│
$INCLUDE "DAS-NBV2.INC" '│
'│
CLS '│ get the VGA screen
SCREEN 12 '│ set-up
GraphicSETUP '│
fLoadDAScolor '│ load 3D color system
'│
FOR Depth? = 1 TO 7 '│ draw some buttons
LOCATE (Y1%\16) + 2, 74 '│
PRINT USING "#pixels"; Depth?; '│
X1% = 0 : Y2% = Y1% + 64 '│ reset to next line
DO '│
X2% = X1% + 64 '│ next box right
IF X2% > 639 THEN EXIT LOOP '│ no more room, bye
GBoxBevel X1%, Y1%, X2%, Y2%, Depth?, 4, 9, 14 '│ draw the boxes
INCR X1%, 64 '│ next box left side
LOOP '│
INCR Y1%, 64 '│ next row
NEXT '│
'│
WHILE NOT INSTAT : WEND '│ a clean exit
CLS : PALETTE : SCREEN 0 : END '│
'└───────────────────────